home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aai.d64 / states of union (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  318 lines
  1. 1 REM STATE..UNION
  2. 100 NS=50:CB=828
  3. 110 VC=53248:POKEVC+32,2:POKEVC+33,6:PRINTCHR$(147)
  4. 120 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX
  5. 130 DIMQT$(5),NT%(22,1)
  6. 140 READX$:IFX$<>"$SONG"THEN140
  7. 150 FORX=0TO22:FORY=0TO1:READZ:NT%(X,Y)=Z:NEXTY,X
  8. 160 SM=((PEEK(53272)AND240)/16)*1024
  9. 170 CM=55296
  10. 200 GOSUB700
  11. 205 S%=0:FORX=1TONS:POKECB+X,0:NEXTX:POKEVC+32,6:POKEVC+33,15:PRINTCHR$(147)
  12. 210 FORX=1TONS:GOSUB800:POKECB+Z,X:NEXTX
  13. 300 X=1
  14. 305 Y=PEEK(CB+X):Y=(Y-1)*6
  15. 310 RESTORE:IFY=0THEN330
  16. 320 FORW=1TOY:READX$:NEXTW
  17. 330 FORW=1TO6:READX$:QT$(W-1)=X$:NEXTW
  18. 400 W=0
  19. 405 PRINTCHR$(147);"[144]";SPC(15);"SCORE =";S%;
  20. 410 PRINT"   QUESTION #";W+1
  21. 420 PRINT"";QT$(W);"."
  22. 430 X$="":POKE198,0:INPUTX$:IFX$=QT$(4)THEN500
  23. 435 IFX$="END"THEN600
  24. 440 POKEVC+33,0:POKEMC+0,0:POKEMC+1,20:POKEMC+4,33:POKEMC+5,15:POKEMC+6,15
  25. 450 POKEMC+24,8:FORV=1TO200:NEXTV
  26. 452 POKEMC+4,32:FORV=1TO30:NEXTV
  27. 454 POKEMC+24,0:PRINTCHR$(147):POKEVC+33,15
  28. 455 IFW=4THEN465
  29. 456 W=W+1:IFW<4THEN405
  30. 457 GOSUB4000
  31. 458 IFX$=QT$(4)THEN500
  32. 459 IFX$="END"THEN600
  33. 460 W=4:GOTO440
  34. 465 PRINT"   STATE=";QT$(4);"[144]":S%=S%-5
  35. 470 FORW=1TO1500:NEXTW
  36. 480 GOTO590
  37. 500 S%=S%+(5-W)
  38. 510 POKEMC+0,0:POKEMC+1,0:POKEMC+5,15:POKEMC+6,15:POKEMC+24,9
  39. 520 FORV=4TO15
  40. 530 POKEVC+33,V:POKEMC+1,V*3:POKEMC+4,33
  41. 540 FORW=1TO30:NEXTW:POKEMC+4,32
  42. 550 FORW=1TO10:NEXTW
  43. 560 NEXTV
  44. 570 POKEMC+24,0
  45. 590 X=X+1:IFX<=NSTHEN305
  46. 600 PRINTCHR$(147);"               TEST OVER![146]"
  47. 610 PRINT"    YOUR SCORE = ";S%
  48. 620 IFS%<0THENS%=0
  49. 625 X=X-1:IFX<1THENX=1
  50. 630 X=INT((S%*100)/(X*5))
  51. 640 PRINT"    YOUR GRADE = ";X;"[157]%"
  52. 650 PRINT"    PLAY AGAIN?":PRINT"    ENTER Y[146] OR N[146]"
  53. 660 GETX$:IFX$=""THEN660
  54. 670 IFX$="Y"THEN205
  55. 680 IFX$<>"N"THEN660
  56. 690 GOSUB900:PRINTCHR$(147)
  57. 695 END
  58. 700 PRINT"           STATE OF THE UNION         [146]"
  59. 705 PRINT" YOU WILL BE ASKED UP TO 5 QUESTIONS     ABOUT EACH U.S. STATE."
  60. 710 PRINT" POINTS WILL BE GIVEN DEPENDING UPON"
  61. 712 PRINT" HOW MANY QUESTIONS YOU NEED:"
  62. 715 PRINT"  1 QUESTION  =  5.":PRINT"  2 QUESTIONS =  4."
  63. 720 PRINT"  3 QUESTIONS =  3.":PRINT"  4 QUESTIONS =  2."
  64. 722 PRINT"  5 QUESTIONS =  1."
  65. 725 PRINT"  ALL MISSED  = -5."
  66. 730 PRINT" TYPE END[146] TO QUIT EARLY."
  67. 785 PRINT"       (PRESS ANY KEY TO START)"
  68. 786 GOSUB900
  69. 787 PRINT"          (TEN-SECOND DELAY)";
  70. 790 GETX$:IFX$=""THEN790
  71. 795 RETURN
  72. 800 W=0
  73. 810 Z=INT((RND(1)*NS)+1):IFPEEK(CB+Z)=0THENRETURN
  74. 820 W=W+1:IFW<9THEN810
  75. 830 Z=1
  76. 840 IFPEEK(CB+Z)=0THENRETURN
  77. 850 Z=Z+1:GOTO840
  78. 900 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,129:POKEMC+24,15
  79. 910 FORX=0TO22
  80. 920 Y=INT(NT%(X,0)/256)
  81. 930 POKEMC+0,NT%(X,0)-(Y*256)
  82. 940 POKEMC+1,Y:POKEMC+4,17
  83. 950 FORY=1TONT%(X,1)*40:NEXTY
  84. 960 POKEMC+4,16:FORY=1TO20:NEXTY,X:POKEMC+24,0
  85. 970 RETURN
  86. 1000 DATA"JEFFERSON DAVIS BECAME PRESIDENT OF THE CONFEDERACY HERE"
  87. 1010 DATA"THE SOUTH'S LARGEST STEEL PRODUCING     STATE"
  88. 1020 DATA"IT'S FAMOUS FOR MAGNOLIAS, COTTON, AND  EARLY AEROSPACE RESEARCH"
  89. 1030 DATA"THE STATE CAPITAL IS MONTGOMERY",ALABAMA,627
  90. 1040 DATA"THE HIGHEST PEAK IN NORTH AMERICA IS    HERE"
  91. 1050 DATA"IT WAS ONCE KNOWN AS SEWARD'S ICE BOX"
  92. 1060 DATA"IT HAS THE LARGEST AREA AND THE SMALLEST POPULATION"
  93. 1070 DATA"THE STATE CAPITAL IS JUNEAU",ALASKA,1
  94. 1080 DATA"THE LAST MAINLAND STATE TO JOIN THE     UNION"
  95. 1090 DATA"ASTRONOMERS LIKE ITS DRY, CLEAR AIR"
  96. 1100 DATA"THE HOME OF THE GRAND CANYON"
  97. 1110 DATA"THE STATE CAPITAL IS PHEONIX",ARIZONA,569
  98. 1120 DATA"IT PRODUCES 90% OF AMERICA'S ALUMINUM"
  99. 1130 DATA"IT WAS THE HOME OF HANGING JUDGE PARKER"
  100. 1140 DATA"IT CONTAINS AMERICA'S ONLY DIAMOND MINE"
  101. 1150 DATA"THE STATE CAPITAL IS LITTLE ROCK",ARKANSAS,583
  102. 1160 DATA"THE MOST POPULOUS OF THE STATES"
  103. 1170 DATA"IT CONTAINS THE LOWEST ELEVATION IN     NORTH AMERICA"
  104. 1180 DATA"THERE WAS 'GOLD IN THEM THAR HILLS'"
  105. 1190 DATA"THE STATE CAPITAL IS SACRAMENTO",CALIFORNIA,444
  106. 1200 DATA"THE STATE WITH THE HIGHEST OVERALL      ELEVATION"
  107. 1210 DATA"IT PRODUCES 72% OF THE WORLD'S          MOLYBDENUM"
  108. 1220 DATA"ITS NAME MEANS 'COLORED RED' IN SPANISH"
  109. 1230 DATA"THE STATE CAPITAL IS DENVER",COLORADO,414
  110. 1240 DATA"IT WAS THE HOME OF NATHAN HALE"
  111. 1250 DATA"IT RECEIVED STATEHOOD IN 1788"
  112. 1260 DATA"IT IS FAMOUS FOR YALE UNIVERSITY"
  113. 1270 DATA"THE STATE CAPITAL IS HARTFORD",CONNECTICUT,275
  114. 1280 DATA"THE FIRST STATE TO RATIFY THE           CONSTITUTION"
  115. 1290 DATA"IT IS SOMETIMES CALLED THE 'CHEMICAL    CAPITAL OF THE WORLD'"
  116. 1300 DATA"AMERICA'S SECOND SMALLEST STATE"
  117. 1310 DATA"THE STATE CAPITAL IS DOVER",DELAWARE,394
  118. 1320 DATA"ITS COASTLINE MEASURES 1,350 MILES"
  119. 1330 DATA"THE SOUTHERNMOST OF THE CONTINENTAL U.S"
  120. 1340 DATA"THE HOME OF CAPE CANAVERAL"
  121. 1350 DATA"THE STATE CAPITAL IS TALLAHASSEE",FLORIDA,832
  122. 1360 DATA"THE LAST OF THE 13 COLONIES TO BE       SETTLED"
  123. 1370 DATA"HOME OF STONE MOUNTAIN PARK"
  124. 1380 DATA"BIRTHPLACE OF UNCLE REMUS, SCARLETT     O'HARA AND COCA-COLA"
  125. 1390 DATA"THE STATE CAPITAL IS ATLANTA",GEORGIA,670
  126. 1400 DATA"THIS STATE WAS FORMED BY ERUPTING       VOLCANOS"
  127. 1410 DATA"THE 50TH STATE TO JOIN THE UNION"
  128. 1420 DATA"WORLD WAR II STARTED FOR THE U.S. WITH  AN ATTACK HERE"
  129. 1430 DATA"THE STATE CAPITAL IS HONOLULU",HAWAII,760
  130. 1440 DATA"IT LEADS IN PRODUCTION OF SILVER AND COBALT"
  131. 1450 DATA"HOME OF THE NATION'S DEEPEST CANYON --  HELLS CANYON"
  132. 1460 DATA"THE STATE CAPITAL IS BOISE"
  133. 1465 DATA"FAMOUS FOR ITS POTATOES",IDAHO,249
  134. 1470 DATA"THELINCOLN-DOUGLAS DEBATES WERE HELD   HERE"
  135. 1480 DATA"IT IS HOME OF THE WORLD'S TALLEST       BUILDING"
  136. 1490 DATA"THE STATE CAPITAL IS SPRINGFIELD"
  137. 1500 DATA"THE WINDY CITY IS PART OF THIS GREAT    LAKE STATE",ILLINOIS,385
  138. 1510 DATA"THE SMALLEST OF THE 'LOWER 48' STATES   WEST OF THE ALLEGHENIES"
  139. 1520 DATA"ITS LAKE MICHIGAN WATERFRONT IS LINED   WITH STEEL MILLS"
  140. 1530 DATA"IT IS THE HOME OF PURDUE UNIVERSITY"
  141. 1540 DATA"THE STATE CAPITAL IS INDIANAPOLIS",INDIANA,427
  142. 1550 DATA"THIS FARMING STATE PRODUCES 10% OF      AMERICA'S FOOD"
  143. 1560 DATA"IT IS THE LEADING LOG STATE IN THE U.S"
  144. 1570 DATA"IT IS BORDERED BY SIX FARMING AND TWO   GREAT LAKE STATES"
  145. 1580 DATA"THE STATE CAPITAL IS DES MOINES",IOWA,342
  146. 1590 DATA"IT PRODUCES MORE WHEAT THAN ANY OTHER   STATE"
  147. 1600 DATA"IT HAD ITS OWN CIVIL WAR OVER SLAVERY IN 1821"
  148. 1610 DATA"LEAVENWORTH FEDERAL PENITENTIARY IS     HERE"
  149. 1620 DATA"THE STATE CAPITAL IS TOPEKA",KANSAS,459
  150. 1630 DATA"PRESIDENTS OF BOTH CIVIL WAR FACTIONS   CAME FROM THIS STATE"
  151. 1640 DATA"THE STATE CAPITAL IS FRANKFORT"
  152. 1650 DATA"IT IS THE SITE OF THE WORLD'S MOST      FAMOUS HORSE RACE"
  153. 1660 DATA"MAMMOTH CAVE AND FORT KNOX ARE HERE",KENTUCKY,468
  154. 1670 DATA"IT CONTAINS THE NATION'S SECOND BUSIEST SEAPORT"
  155. 1680 DATA"IT IS DIVIDED INTO PARISHES, AND NOT    COUNTIES"
  156. 1690 DATA"THE STATE CAPITAL IS BATON ROUGE"
  157. 1700 DATA"THE HOME OF CAJUNS,CRAWFISH AND MARDI  GRAS",LOUISIANA,704
  158. 1710 DATA"THIS STATE HAD A 'TEA PARTY' BUT NOT IN BOSTON"
  159. 1720 DATA"IT WAS A PART OF MASSACHUSETTS UNTIL    1820"
  160. 1730 DATA"THE STATE CAPITAL  IS AUGUSTA"
  161. 1740 DATA"IT IS FAMOUS FOR ITS LOBSTER",MAINE,116
  162. 1750 DATA"THE ONLY STATE WITH A STATE SPORT --    JOUSTING"
  163. 1760 DATA"THE FIRST STATE TO RATIFY THE           CONSTITUTION"
  164. 1770 DATA"IT STRADDLES CHESAPEAKE BAY"
  165. 1780 DATA"THE STATE CAPITAL IS ANNAPOLIS",MARYLAND,393
  166. 1790 DATA"THE PILGRIMS FIRST LANDED HERE"
  167. 1800 DATA"HOME OF THE INFAMOUS SALEM WITCH TRIALS"
  168. 1810 DATA"THE HOME OF HARVARD UNIVERSITY"
  169. 1820 DATA"THE STATE CAPITAL IS BOSTON",MASSACHUSETTS,235
  170. 1830 DATA"IT IS COMPOSED OF TWO PENINSULAS,       DIVIDED BY THE GREAT LAKES"
  171. 1840 DATA"THE STATE CAPITAL IS LANSING"
  172. 1845 DATA"IT IS THE AUTOMOBILE CAPITAL OF THE     WORLD"
  173. 1850 DATA"A GREAT LAKE SHARES ITS NAME",MICHIGAN,267
  174. 1860 DATA"IT CONTAINS MORE THAN 15,000 LAKES"
  175. 1870 DATA"THE HOME OF THE MAYO CLINIC"
  176. 1880 DATA"THE MISSISSIPPI RIVER HAS ITS ORIGIN IN THIS STATE"
  177. 1890 DATA"THE STATE CAPITAL IS ST. PAUL",MINNESOTA,221
  178. 1900 DATA"ONLY VIRGINIA HAD MORE CIVIL WAR        BATTLES THAN THIS STATE"
  179. 1910 DATA"DEVASTATED IN 1969 BY AMERICA'S MOST    POWERFUL HURRICANE"
  180. 1920 DATA"ITS NAME IS AN INDIAN WORD MEANING      'LARGE RIVER'"
  181. 1930 DATA"THE STATE CAPITAL IS JACKSON",MISSISSIPPI,625
  182. 1940 DATA"IT RANKS FIRST IN THE NATION IN LEAD    MINING"
  183. 1950 DATA"IT WAS ADMITTED AS A SLAVE STATE WHEN   MAINE JOINED AS A FREE STATE"
  184. 1960 DATA"IT IS THE 'GATEWAY TO THE WEST'"
  185. 1970 DATA"THE STATE CAPITAL IS JEFFERSON CITY",MISSOURI,463
  186. 1980 DATA"IT IS THE MUSTARD SEED CAPITAL OF THE   U.S"
  187. 1990 DATA"GLACIER NATIONAL PARK IS HERE"
  188. 2000 DATA"THE SITE OF CUSTER'S LAST STAND"
  189. 2010 DATA"THE STATE CAPITAL IS HELENA",MONTANA,173
  190. 2020 DATA"THE BIRTHPLACE OF PRESIDENT GERALD FORD"
  191. 2030 DATA"THE PLATTE RIVER RUNS THE WIDTH OF THE  STATE"
  192. 2040 DATA"THE TRANSCONTINENTAL RAILROAD STARTED   HERE IN 1865"
  193. 2050 DATA"THE STATE CAPITAL IS OMAHA",NEBRASKA,378
  194. 2060 DATA"THE DRIEST STATE, WITH LESS THAN 3      INCHES OF RAIN PER YEAR"
  195. 2070 DATA"THE SITE OF UNDERGROUND NUCLEAR TESTS"
  196. 2080 DATA"THE STATE CAPITAL IS CARSON CITY"
  197. 2090 DATA"IT IS THE GAMBLING CAPITAL OF THE U.S",NEVADA,407
  198. 2100 DATA"IT SHARED A GOVERNOR WITH MASSACHUSETTS FROM 1699-1741"
  199. 2110 DATA"AS THE 9TH STATE TO RATIFY, IT MADE THE CONSTITUTION LEGAL"
  200. 2120 DATA"PUBLIC PARK LANDS COMPRISE ONE-FIFTH OF  THIS STATE"
  201. 2130 DATA"THE STATE CAPITAL IS CONCORD","NEW HAMPSHIRE",195
  202. 2140 DATA"ONE OF ITS CITIES WAS USED AS A PATTERN FOR THE MONOPOLY BOARD"
  203. 2150 DATA"THE STATE CAPITAL IS TRENTON"
  204. 2160 DATA"THE HOME OF PRINCETON AND RUTGERS       UNIVERSITIES"
  205. 2170 DATA"THE SITE OF 'AMERICA'S OTHER LAS VEGAS'","NEW JERSEY",314
  206. 2180 DATA"IT LEADS THE NATION IN URANIUM          PRODUCTION"
  207. 2190 DATA"THE FIRST ATOMIC BOMB WAS PRODUCED AND  EXPLODED HERE"
  208. 2200 DATA"THE STATE CAPITAL IS SANTA FE"
  209. 2210 DATA"CARLSBAD CAVERNS IS ITS MAJOR TOURIST   ATTRACTION","NEW MEXICO",614
  210. 2220 DATA"ITS LARGEST CITY WAS THE FIRST U.S.     CAPITOL"
  211. 2230 DATA"IT LEADS THE NATION IN MANUFACTURING"
  212. 2240 DATA"IT CONTAINS THE NATION'S LARGEST CITY   AND PORT"
  213. 2250 DATA"THE STATE CAPITAL IS ALBANY","NEW YORK",233
  214. 2260 DATA"THE WRIGHT BROTHERS' FIRST PLANE FLEW   HERE"
  215. 2270 DATA"HOME OF THE NEW WORLD'S 'LOST COLONY'"
  216. 2280 DATA"IT LEADS THE NATION IN TOBACCO          PRODUCTION"
  217. 2290 DATA"THE STATE CAPITAL IS RALEIGH","NORTH CAROLINA",551
  218. 2300 DATA"THE BIRTHPLACE OF ULYSSES GRANT AND SIX OTHER PRESIDENTS"
  219. 2310 DATA"THE ABOLITIONIST MOVEMENT BEGAN HERE"
  220. 2320 DATA"IT LEADS THE NATION IN LIME PRODUCTION"
  221. 2330 DATA"THE STATE CAPITAL IS COLUMBUS",OHIO,389
  222. 2340 DATA"90% OF THIS RURAL STATE IS DEVOTED TO   FARM LAND"
  223. 2350 DATA"HOME OF THE BADLANDS"
  224. 2360 DATA"SITE OF THE RED RIVER VALLEY"
  225. 2370 DATA"THE STATE CAPITAL IS BISMARCK","NORTH DAKOTA",178
  226. 2380 DATA"IT WAS THE BIRTHPLACE OF WILL ROGERS"
  227. 2390 DATA"IT WAS PART OF INDIAN TERRITORY DURING  THE 19TH CENTURY"
  228. 2400 DATA"INDIANS WANTED PART OF ITS LAND TO      BECOME THE STATE OF SEQUOYAH"
  229. 2410 DATA"THE STATE CAPITAL IS OKLAHOMA CITY",OKLAHOMA,620
  230. 2420 DATA"IN 1811 JOHN JACOB ASTOR FOUNDED A FUR DEPOT HERE"
  231. 2430 DATA"IT BOASTS THE NATION'S DEEPEST LAKE,    CRATER LAKE"
  232. 2440 DATA"IT LEADS THE NATION IN LUMBER           PRODUCTION"
  233. 2450 DATA"THE STATE CAPITAL IS SALEM",OREGON,205
  234. 2460 DATA"BENJAMIN FRANKLIN IS ITS MOST FAMOUS    SON"
  235. 2470 DATA"IT IS THE HOME OF THE 1ST RADIO STATION -- KDKA"
  236. 2480 DATA"VALLEY FORGE AND GETTYSBURG ARE BOTH IN THIS STATE"
  237. 2490 DATA"THE STATE CAPITAL IS HARRISBURG",PENNSYLVANIA,312
  238. 2500 DATA"ROGER WILLIAMS STARTED THE STATE'S FIRST SETTLEMENT IN 1636"
  239. 2510 DATA"IT WAS THE LAST OF THE ORIGINAL COLONIES TO RATIFY THE CONSTITUTION"
  240. 2520 DATA"IT IS THE NATION'S SMALLEST STATE, AND  IT IS NOT AN ISLAND"
  241. 2530 DATA"THE STATE CAPITAL IS PROVIDENCE","RHODE ISLAND",276
  242. 2540 DATA"THE CIVIL WAR STARTED HERE"
  243. 2550 DATA"IT WAS THE 1ST STATE TO SECEDE FROM THE UNION"
  244. 2560 DATA"IT IS THE BIGGEST PEACH-PRODUCING STATE EAST OF CALIFORNIA"
  245. 2570 DATA"THE STATE CAPITAL IS COLUMBIA","SOUTH CAROLINA",551
  246. 2580 DATA"IT CONTAINS THE GEOGRAPHICAL CENTER OF  THE U.S"
  247. 2590 DATA"IT LEADS THE NATION IN GOLD PRODUCTION"
  248. 2600 DATA"IT IS FAMOUS FOR MOUNT RUSHMORE"
  249. 2610 DATA"THE STATE CAPITAL IS PIERRE","SOUTH DAKOTA",258
  250. 2620 DATA"IT LEADS THE NATION IN ZINC PRODUCTION"
  251. 2630 DATA"ANDREW JACKSON MADE HIS HOME HERE"
  252. 2640 DATA"IT IS THE MUSIC CENTER OF AMERICA"
  253. 2650 DATA"THE STATE CAPITAL IS NASHVILLE",TENNESSEE,547
  254. 2660 DATA"IT WAS AN INDEPENDENT COUNTRY FOR ALMOST A DECADE"
  255. 2670 DATA"IT LEADS THE NATION IN OIL, CATTLE AND  COTTON PRODUCTION"
  256. 2680 DATA"THE BATTLE OF THE ALAMO WAS FOUGHT HERE"
  257. 2690 DATA"THE STATE CAPITAL IS AUSTIN",TEXAS,738
  258. 2700 DATA"IT CONTAINS THE NATION'S LARGEST OPEN   PIT COPPER MINE"
  259. 2710 DATA"ITS ORIGINAL NAME WAS DESERET"
  260. 2720 DATA"BRIGHAM YOUNG LED THE FIRST MORMON      SETTLERS HERE"
  261. 2730 DATA"THE STATE CAPITAL IS SALT LAKE CITY",UTAH,410
  262. 2740 DATA"IT CLAIMS TWO U.S. PRESIDENTS, BUT ONE  WAS PROBABLY BORN IN CANADA"
  263. 2750 DATA"IT IS THE ONLY NEW ENGLAND STATE WITHOUT AN OCEAN COASTLINE"
  264. 2760 DATA"IT'S FAMOUS FOR THE PRODUCTION OF MAPLE SYRUP"
  265. 2770 DATA"THE STATE CAPITAL IS MONTPELIER",VERMONT,194
  266. 2780 DATA"IT IS FAMOUS FOR COAL PRODUCTION"
  267. 2790 DATA"HARPERS FERRY IS LOCATED HERE"
  268. 2800 DATA"STONEWALL JACKSON WAS A NATIVE OF THIS  STATE"
  269. 2810 DATA"THE STATE CAPITAL IS CHARLESTON","WEST VIRGINIA",431
  270. 2820 DATA"IT HAS THE MILDEST CLIMATE OF ALL THE   NORTHERN STATES"
  271. 2830 DATA"IT LEADS THE NATION IN APPLE PRODUCTION"
  272. 2840 DATA"IT CONTAINS THE ONLY ACTIVE VOLCANO IN  THE CONTINENTAL U.S"
  273. 2850 DATA"THE STATE CAPITAL IS OLYMPIA",WASHINGTON,86
  274. 2860 DATA"IT WAS THE HOME OF THE MAIN CAPITAL OF  THE CONFEDERACY"
  275. 2870 DATA"THE FIRST PERMANENT ENGLISH SETTLEMENT  IN AMERICA WAS HERE"
  276. 2880 DATA"IT IS THE BIRTHPLACE OF EIGHT           PRESIDENTS"
  277. 2890 DATA"THE STATE CAPITAL IS RICHMOND",VIRGINIA,472
  278. 2900 DATA"IT WAS THE BOYHOOD HOME OF HARRY        HOUDINI"
  279. 2910 DATA"IT LEADS THE NATION IN BEER PRODUCTION"
  280. 2920 DATA"IT IS THE NATION'S LEADING DAIRY STATE"
  281. 2930 DATA"THE STATE CAPITAL IS MADISON",WISCONSIN,264
  282. 2940 DATA"WOMEN WERE FIRST GIVEN THE RIGHT TO VOTE HERE"
  283. 2950 DATA"ITS DEVIL'S TOWER WAS THE FIRST U.S.    NATIONAL MONUMENT"
  284. 2960 DATA"IT IS THE HOME OF YELLOWSTONE NATIONAL  PARK"
  285. 2970 DATA"THE STATE CAPITAL IS CHEYENNE",WYOMING,294
  286. 3900 DATA"$SONG"
  287. 3910 DATA6430,2,5407,2,6430,4,6430,2,5407,2,6430,4,6430,2,5407,2,6430,2
  288. 3920 DATA7217,2,6430,2,5407,2,6430,4,0,1,5407,2,5728,2,6430,2,5728,4
  289. 3930 DATA4817,2,6430,2,5728,4,4817,2,4291,8
  290. 4000 V=VAL(QT$(5))
  291. 4002 POKEVC+33,6
  292. 4008 PRINTCHR$(147);"    [172][184][183][184][146][162][185]";SPC(25);" [146][161]"
  293. 4010 PRINT"    [182]       [163][163][183][183][184][184][146][185][175][175][185]               [146][161]"
  294. 4020 PRINT"    [169]                 [188][146]           [169]  [146] "
  295. 4030 PRINT"   [169]                   [223][169][184] [184][223][146]    [169]   [146][161]"
  296. 4040 PRINT"  [169]                      [146]       [169]    [188][146]"
  297. 4050 PRINT"                          [146] [223][146]  [190]    [146][184]"
  298. 4060 PRINT"                          [146]   [146] [169]   [146][161]"
  299. 4070 PRINT"  [180]                       [184]        [146]"
  300. 4080 PRINT"  [182]                               [146][169]"
  301. 4090 PRINT"  [170]                               [146][190]"
  302. 4100 PRINT"   [223]                              [146][187]"
  303. 4120 PRINT"    [223]                             [146][169][190]"
  304. 4130 PRINT"     [223]                            [146][190]"
  305. 4140 PRINT"      [187]                         [146][169]"
  306. 4150 PRINT"       [183][223]                      [170][146]"
  307. 4160 PRINT"          [188][184][184]                   [146]"
  308. 4170 PRINT"             [223]           [184][183][146] [223]   [146]"
  309. 4180 PRINT"              [183][223]      [146][184][184]      [223] [223]"
  310. 4190 PRINT"                [223]  [146][169]          [182]  [223][146]"
  311. 4200 PRINT"                 [223] [223][146]           [223] [182][146]"
  312. 4210 PRINT"                                [188]"
  313. 4220 POKESM+V,160:POKECM+V,0
  314. 4230 INPUT" WHICH STATE";X$
  315. 4240 PRINT"[144]";
  316. 4250 POKEVC+33,15
  317. 4260 RETURN
  318.